/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / vic20 / utilities / unexpanded / Prog Char 1.1-un.prg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 10 34 10 0a 00 8f 58 | a6 0d bd ff 7f 9d ff 17 |..4....X|........|
|00000010| bd ff 80 9d ff 18 bd ff | 81 9d ff 19 bd ff 82 9d |........|........|
|00000020| ff 1a bd ff 83 9d ff 1b | bd ff 84 9d ff 1c e8 e4 |........|........|
|00000030| 0d d0 d7 60 00 47 10 e8 | 03 97 35 36 2c 32 34 3a |...`.G..|..56,24:|
|00000040| 9c 3a 8d 39 30 30 30 00 | 5c 10 f2 03 99 22 93 31 |.:.9000.|\....".1|
|00000050| 2e 43 48 41 4e 47 45 20 | 43 48 41 52 00 71 10 fc |.CHANGE |CHAR.q..|
|00000060| 03 99 22 32 2e 4c 4f 41 | 44 20 43 48 41 52 53 45 |.."2.LOA|D CHARSE|
|00000070| 54 00 86 10 06 04 99 22 | 33 2e 53 41 56 45 20 43 |T......"|3.SAVE C|
|00000080| 48 41 52 53 45 54 00 99 | 10 10 04 99 22 34 2e 53 |HARSET..|...."4.S|
|00000090| 45 45 20 56 41 4c 55 45 | 53 00 a5 10 15 04 99 22 |EE VALUE|S......"|
|000000a0| 35 2e 45 4e 44 00 c1 10 | 1a 04 a1 41 24 3a 8b 41 |5.END...|...A$:.A|
|000000b0| 24 b3 22 31 22 b0 41 24 | b1 22 35 22 a7 31 30 35 |$."1".A$|."5".105|
|000000c0| 30 00 e5 10 24 04 91 c5 | 28 41 24 29 89 31 30 37 |0...$...|(A$).107|
|000000d0| 30 2c 33 30 30 30 2c 34 | 30 30 30 2c 36 30 30 30 |0,3000,4|000,6000|
|000000e0| 2c 35 30 30 30 00 20 11 | 2e 04 99 22 93 44 49 53 |,5000. .|...".DIS|
|000000f0| 50 4c 41 59 20 4d 41 54 | 52 49 58 20 4f 46 20 3f |PLAY MAT|RIX OF ?|
|00000100| 20 20 20 28 52 45 54 55 | 52 4e 20 46 4f 52 20 4e |   (RETU|RN FOR N|
|00000110| 4f 54 48 49 4e 47 29 22 | 3a 58 b2 30 3a 59 b2 30 |OTHING)"|:X.0:Y.0|
|00000120| 00 56 11 31 04 8d 39 31 | 30 30 3a 8d 39 32 30 30 |.V.1..91|00:.9200|
|00000130| 3a 8b 41 b2 33 32 a7 81 | 49 b2 30 a4 37 3a 41 24 |:.A.32..|I.0.7:A$|
|00000140| 28 49 29 b2 22 2e 2e 2e | 2e 2e 2e 2e 2e 22 3a 82 |(I)."...|.....":.|
|00000150| 3a 89 31 30 38 30 00 8f | 11 34 04 81 49 b2 30 a4 |:.1080..|.4..I.0.|
|00000160| 37 3a 41 24 28 49 29 b2 | 22 22 3a 81 4a b2 30 a4 |7:A$(I).|"":.J.0.|
|00000170| 37 3a 41 24 b2 22 2e 22 | 3a 8b c2 28 50 aa 49 29 |7:A$."."|:..(P.I)|
|00000180| af 32 ae 28 37 ab 4a 29 | a7 41 24 b2 22 2a 22 00 |.2.(7.J)|.A$."*".|
|00000190| a7 11 35 04 41 24 28 49 | 29 b2 41 24 28 49 29 aa |..5.A$(I|).A$(I).|
|000001a0| 41 24 3a 82 4a 2c 49 00 | c1 11 38 04 99 22 93 22 |A$:.J,I.|..8.."."|
|000001b0| 3b 3a 81 49 b2 30 a4 37 | 3a 99 41 24 28 49 29 3a |;:.I.0.7|:.A$(I):|
|000001c0| 82 00 f5 11 3d 04 99 22 | 11 11 11 11 27 5f 27 20 |....=.."|....'_' |
|000001d0| 46 4f 52 20 4e 45 57 20 | 4d 41 54 52 49 58 22 3a |FOR NEW |MATRIX":|
|000001e0| 99 22 11 27 52 45 54 55 | 52 4e 27 20 54 4f 20 45 |.".'RETU|RN' TO E|
|000001f0| 4e 54 45 52 22 00 2b 12 | 3e 04 99 22 11 27 2a 27 |NTER".+.|>..".'*'|
|00000200| 20 54 4f 20 57 52 49 54 | 45 20 50 49 58 45 4c 22 | TO WRIT|E PIXEL"|
|00000210| 3a 99 22 11 27 53 50 41 | 43 45 27 20 54 4f 20 45 |:.".'SPA|CE' TO E|
|00000220| 52 41 53 45 20 50 49 58 | 45 4c 22 00 43 12 42 04 |RASE PIX|EL".C.B.|
|00000230| 99 22 13 22 3b 3a 8b 59 | a7 81 49 b2 31 a4 59 3a |.".";:.Y|..I.1.Y:|
|00000240| 99 3a 82 00 78 12 4c 04 | 99 c8 28 41 24 28 59 29 |.:..x.L.|..(A$(Y)|
|00000250| 2c 58 29 22 12 22 ca 28 | 41 24 28 59 29 2c 58 aa |,X)".".(|A$(Y),X.|
|00000260| 31 2c 31 29 22 92 22 ca | 28 41 24 28 59 29 2c 58 |1,1)".".|(A$(Y),X|
|00000270| aa 32 29 3a 4f 59 b2 59 | 00 94 12 56 04 8d 39 31 |.2):OY.Y|...V..91|
|00000280| 30 30 3a 8b 41 24 b2 22 | 11 22 a7 59 b2 28 59 aa |00:.A$."|.".Y.(Y.|
|00000290| 31 29 af 37 00 aa 12 6a | 04 8b 41 24 b2 22 1d 22 |1).7...j|..A$."."|
|000002a0| a7 58 b2 28 58 aa 31 29 | af 37 00 c0 12 74 04 8b |.X.(X.1)|.7...t..|
|000002b0| 41 24 b2 22 9d 22 a7 58 | b2 28 58 ab 31 29 af 37 |A$.".".X|.(X.1).7|
|000002c0| 00 d6 12 7e 04 8b 41 24 | b2 22 91 22 a7 59 b2 28 |...~..A$|.".".Y.(|
|000002d0| 59 ab 31 29 af 37 00 ea | 12 92 04 8b 41 24 b2 22 |Y.1).7..|....A$."|
|000002e0| 13 22 a7 58 b2 30 3a 59 | b2 30 00 fb 12 97 04 8b |.".X.0:Y|.0......|
|000002f0| 41 24 b2 22 5f 22 a7 31 | 30 37 30 00 15 13 9c 04 |A$."_".1|070.....|
|00000300| 8b 41 24 b2 22 93 22 a7 | 58 b2 30 3a 59 b2 30 3a |.A$.".".|X.0:Y.0:|
|00000310| 89 31 30 37 33 00 4d 13 | a6 04 8b 41 24 b2 22 2a |.1073.M.|...A$."*|
|00000320| 22 a7 41 24 28 59 29 b2 | c8 28 41 24 28 59 29 2c |".A$(Y).|.(A$(Y),|
|00000330| 58 29 aa 22 2a 22 aa ca | 28 41 24 28 59 29 2c 58 |X)."*"..|(A$(Y),X|
|00000340| aa 32 29 3a 58 b2 28 58 | aa 31 29 af 37 00 85 13 |.2):X.(X|.1).7...|
|00000350| b0 04 8b 41 24 b2 22 20 | 22 a7 41 24 28 59 29 b2 |...A$." |".A$(Y).|
|00000360| c8 28 41 24 28 59 29 2c | 58 29 aa 22 2e 22 aa ca |.(A$(Y),|X)."."..|
|00000370| 28 41 24 28 59 29 2c 58 | aa 32 29 3a 58 b2 28 58 |(A$(Y),X|.2):X.(X|
|00000380| aa 31 29 af 37 00 a4 13 | 78 05 99 22 91 22 41 24 |.1).7...|x.."."A$|
|00000390| 28 4f 59 29 3a 8b 41 24 | b3 b1 c7 28 31 33 29 a7 |(OY):.A$|...(13).|
|000003a0| 31 30 39 30 00 be 13 dc | 05 99 22 13 11 11 11 11 |1090....|..".....|
|000003b0| 11 11 11 11 11 11 4f 4b | 3f 9d 9d 9d 22 3b 00 d2 |......OK|?...";..|
|000003c0| 13 e6 05 a1 41 24 3a 8b | 41 24 b2 22 22 a7 31 35 |....A$:.|A$."".15|
|000003d0| 31 30 00 ef 13 f0 05 99 | 22 20 20 20 9d 9d 9d 22 |10......|"   ..."|
|000003e0| 3b 3a 8b 41 24 b3 b1 22 | 59 22 a7 31 30 39 30 00 |;:.A$.."|Y".1090.|
|000003f0| 0f 14 fa 05 99 22 13 11 | 11 11 11 11 11 11 11 11 |....."..|........|
|00000400| 11 52 45 50 4c 41 43 45 | 20 3f 20 20 9d 22 3b 00 |.REPLACE| ?  .";.|
|00000410| 23 14 04 06 a1 41 24 3a | 8b 41 24 b2 22 22 a7 31 |#....A$:|.A$."".1|
|00000420| 35 34 30 00 2b 14 0e 06 | 99 41 24 00 48 14 13 06 |540.+...|.A$.H...|
|00000430| 8b c2 28 37 39 31 30 29 | b2 33 32 af 41 24 b3 b1 |..(7910)|.32.A$..|
|00000440| 22 20 22 a7 31 35 33 30 | 00 5c 14 18 06 a1 42 24 |" ".1530|.\....B$|
|00000450| 3a 8b 42 24 b2 22 22 a7 | 31 35 36 30 00 76 14 22 |:.B$."".|1560.v."|
|00000460| 06 8b 42 24 b2 c7 28 32 | 30 29 a7 99 22 91 22 3b |..B$..(2|0)..".";|
|00000470| 3a 89 31 35 33 30 00 8a | 14 2c 06 8b 42 24 b3 b1 |:.1530..|.,..B$..|
|00000480| c7 28 31 33 29 a7 31 35 | 36 30 00 94 14 36 06 8d |.(13).15|60...6..|
|00000490| 39 32 30 30 00 c8 14 4a | 06 81 49 b2 30 a4 37 3a |9200...J|..I.0.7:|
|000004a0| 54 b2 30 3a 81 4a b2 30 | a4 37 3a 8b ca 28 41 24 |T.0:.J.0|.7:..(A$|
|000004b0| 28 49 29 2c 37 ab 4a aa | 31 2c 31 29 b2 22 2a 22 |(I),7.J.|1,1)."*"|
|000004c0| a7 54 b2 54 aa 32 ae 4a | 00 dc 14 54 06 82 4a 3a |.T.T.2.J|...T..J:|
|000004d0| 97 50 aa 49 2c 54 3a 99 | 54 3a 82 49 00 f0 14 5e |.P.I,T:.|T:.I...^|
|000004e0| 06 a1 41 24 3a 8b 41 24 | b2 22 22 a7 31 36 33 30 |..A$:.A$|."".1630|
|000004f0| 00 fa 14 68 06 89 31 30 | 31 30 00 00 15 88 13 80 |...h..10|10......|
|00000500| 00 19 15 70 17 99 22 93 | 57 48 49 43 48 20 43 48 |...p..".|WHICH CH|
|00000510| 41 52 41 43 54 45 52 20 | 3f 00 2d 15 7a 17 a1 41 |ARACTER |?.-.z..A|
|00000520| 24 3a 8b 41 24 b2 22 22 | a7 36 30 31 30 00 42 15 |$:.A$.""|.6010.B.|
|00000530| 84 17 99 22 93 22 41 24 | 3a 41 b2 c2 28 37 36 38 |..."."A$|:A..(768|
|00000540| 30 29 00 51 15 8e 17 50 | b2 36 31 34 34 aa 41 ac |0).Q...P|.6144.A.|
|00000550| 38 00 66 15 98 17 81 49 | b2 30 a4 37 3a 99 c2 28 |8.f....I|.0.7:..(|
|00000560| 49 aa 50 29 3a 82 00 7a | 15 a2 17 a1 41 24 3a 8b |I.P):..z|....A$:.|
|00000570| 41 24 b2 22 22 a7 36 30 | 35 30 00 85 15 ac 17 89 |A$."".60|50......|
|00000580| 20 31 30 31 30 00 99 15 | 28 23 8b c2 28 33 36 38 | 1010...|(#..(368|
|00000590| 36 39 29 b2 32 35 34 a7 | 8e 00 b0 15 2d 23 97 33 |69).254.|....-#.3|
|000005a0| 36 38 36 39 2c 32 35 34 | 3a 9e 34 31 30 33 3a 8e |6869,254|:.4103:.|
|000005b0| 00 c4 15 8c 23 a1 41 24 | 3a 8b 41 24 b2 22 22 a7 |....#.A$|:.A$."".|
|000005c0| 39 31 30 30 00 ca 15 96 | 23 8e 00 fb 15 f0 23 99 |9100....|#.....#.|
|000005d0| 22 93 22 41 24 3a 41 b2 | c2 28 37 36 38 30 29 3a |"."A$:A.|.(7680):|
|000005e0| 50 b2 36 31 34 34 aa 41 | ac 38 3a 99 22 93 57 4f |P.6144.A|.8:.".WO|
|000005f0| 52 4b 49 4e 47 20 21 21 | 22 3a 8e 00 00 00       |RKING !!|":....  |
+--------+-------------------------+-------------------------+--------+--------+